home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 201-225 / disk_201 / draco / drinc / exec / memory.g < prev    next >
Text File  |  1992-05-06  |  1KB  |  59 lines
  1. type
  2. „Node_t=unknown14,
  3.  
  4. „MemChunk_t=struct{
  5. ˆ*MemChunk_tmc_Next;
  6. ˆulongmc_Bytes;
  7. „},
  8.  
  9. „MemHeader_t=struct{
  10. ˆNode_tmh_Node;
  11. ˆuintmh_Attributes;
  12. ˆ*MemChunk_tmh_First;
  13. ˆ*bytemh_Lower;
  14. ˆ*bytemh_Upper;
  15. ˆulongmh_Free;
  16. „},
  17.  
  18. „MemEntry_t=struct{
  19. ˆunion{
  20. Œulongmeu_Reqs;
  21. Œ*bytemeu_Addr;
  22. ˆ}me_Un;
  23. ˆulongme_Length;
  24. „},
  25.  
  26. „MemList_t=struct{
  27. ˆNode_tml_Node;
  28. ˆuintml_NumEntries;
  29. ˆ[1]MemEntry_tml_ME;
  30. „};
  31.  
  32. uint
  33. „MEMF_PUBLIC…=1<<0,
  34. „MEMF_CHIP‡=1<<1,
  35. „MEMF_FAST‡=1<<2;
  36.  
  37. ulong
  38. „MEMF_CLEAR†=1<<16,
  39. „MEMF_LARGEST„=1<<17;
  40.  
  41. uint
  42. „MEM_BLOCKSIZEƒ=8,
  43. „MEM_BLOCKMASKƒ=7;
  44.  
  45. extern
  46. „AddMemList(ulongsize,attributes;longpri;arbptrbase;*charname)bool,
  47. „AllocAbs(ulongbyteSize,location)arbptr,
  48. „Allocate(*MemHeader_tfreeList;ulongbyteSize)arbptr,
  49. „AllocEntry(*MemList_tneeded)*MemList_t,
  50. „AllocMem(ulongbyteSize,requirements)arbptr,
  51. „AvailMem(ulongrequirements)ulong,
  52. „CopyMem(arbptrsource,dest;ulongsize)void,
  53. „CopyMemQuick(*ulongsource,dest;ulongbyteSize)void,
  54. „Deallocate(*MemHeader_tfreeList;arbptrmemoryBlock;ulongbyteSize)void,
  55. „FreeEntry(*MemList_tmemList)void,
  56. „FreeMem(arbptrmemoryBlock;ulongbyteSize)void,
  57. „InitStruct(*byteinitTable,memory;ulongsize)void,
  58. „TypeOfMem(arbptraddress)uint;
  59.